home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games 1996 July / Amiga Games 1996 #7.iso / rexx / zeus / viruscheck.zeus
Text File  |  1995-10-22  |  2KB  |  76 lines
  1. /* $VER: ZEUS BBS Xtruder Virus Interface v1.0 21-08-95 (c) 1995 -*-Per2-*-
  2.  
  3. this is a very short doc... you must make this in your TestFile.zeus
  4.  
  5.  when Ext = 'LHA' | Ext = 'LZH' then do
  6.    CLIDoor '"RX ZEUS:Scripts/File/VirusCheck.zeus 'Filename'"'
  7.   CLIDoor '"LHA t 'Filename'"' Stack 8192
  8.   Ret = RC
  9.   
  10.   if Ret = 0 & GetDIZ = 1 then CLIDoor '"Lha -x0 e 'Filename' FILE_ID.DIZ"'
  11. Stack 8192 Dir WorkDir   end
  12.  
  13. and put this in so it gets the username i know there is another way to do this
  14. but i don't have the time right now, remember to change the sysop name
  15. in line 69 and the area the virus message must go
  16.  
  17. DelVar 'FILENAME'
  18. DelVar 'GETDIZ'
  19.  
  20. GetUserData 'Name' 
  21. UName = RESULT
  22. address command 'echo >T:XTruder.User 'UName''
  23.  
  24. */
  25.  
  26. LOG = 'T:XTruder.Log'
  27.  
  28. Address XTRUDER
  29. OPTIONS RESULTS
  30. PARSE UPPER ARG arg2
  31. archive = arg2
  32.  
  33. say ' '
  34. say 'Loading Xtruder'
  35. say 'Welcome To ZEUS Virus Check v1.0 (c) 1995 By -*-Per2-*-'
  36. say ''
  37. say 'Checking 'Archive' for Virus...'
  38.  
  39. CHECKFILES archive
  40. virusstatus = rc
  41.  
  42.   IF virusstatus = 0 THEN DO
  43.     say 'Archive Contains No Virus.'
  44.     say 'Ok!'
  45.     say ''
  46.   END
  47.  
  48.   IF virusstatus >= 1 THEN DO
  49.     call open(req,LOG,"W")
  50.     call writeln(req,"Information From ZEUS Virus Checker v1.0  ")
  51.     call writeln(req,"")
  52.     call writeln(req,''||Date()||' 'Time()||'')
  53.     call writeln(req,'Xtruder started check of 'archive'!')
  54.     call writeln(req,'Xtruder FOUND VIRUS in 'archive'!')
  55.     call writeln(req,'Xtruder ended')
  56.     call writeln(req,"")
  57.     call close req
  58.     say ""
  59.     say "You Will Not Get Upload Credit For This File"
  60.     say "Reason:"
  61.     say ''Archive' Seem to Contain a Virus!'
  62.     say 'I Will leave a Message To Sysop About this File!'
  63.     say ''
  64.     address command 'echo >t:XTruder.Up The File Was Uploaded By'
  65.     address command 'Join t:XTruder.Up T:XTruder.User as T:XTruder.Txt1'
  66.     address command 'Join T:Xtruder.Log T:XTruder.Txt1 as T:XTruder.Txt'
  67.     address command 'wait 6'
  68.     address command 'Zeus:Bin/PostMsg >NIL: "Zeus Virus Checker" "Kenneth
  69. Perto" "Possible Virus in File" "T:XTruder.Txt" 1'   END
  70.  
  71. call close LOG
  72. address command 'delete >nil: T:XTruder*'
  73.  
  74. EXIT 0
  75. END
  76.